home *** CD-ROM | disk | FTP | other *** search
/ Floppy Magazine 1988 #6 / Floppy_Magazine_88-6_1988_Megasystems_Oy_fi_Side_A.d64 / wiza to easy. (.txt) < prev   
Commodore BASIC  |  2023-02-26  |  748b  |  28 lines
  1. 5 dim sy$(50)
  2. 10 input"anna tiedostonimi:";tn$
  3. 11 open15,8,15,"s0:"+tn$+".ef":close15:open3,8,0,"0:"+tn$+",p,r"
  4. 12 open2,8,2,"0:"+left$(tn$,13)+".ef,s,w"
  5. 19 byte$="":n=0
  6. 20 n=n+1:get#3,ye$
  7. 21 ifst<>0thenprint#2:close2:close3:goto40
  8. 22 ifye$="[220]"thench$=chr$(13):goto30
  9. 23 ifye$=chr$(119)thench$="]":goto30
  10. 24 ifye$=chr$(120)thench$="\":goto30
  11. 25 ifye$=chr$(121)thench$="[":goto30
  12. 26 ifye$=""thench$="@":goto30
  13. 27 ifasc(ye$)<27thench$=chr$(asc(ye$)+64):goto30
  14. 28 ifasc(ye$)>64andasc(ye$)<91thench$=chr$(asc(ye$)+128):goto30
  15. 29 ch$=ye$
  16. 30 print#2,ch$;:goto20
  17. 31 sy$(l)=sy$(l)+ch$:iflen(sy$(l))<254then20
  18. 32 l=l+1:goto20
  19. 40 print"tekstin nimi:";tn$
  20. 41 print"tekstin pituus:[157]";n;"merkki[."
  21. 42 ifn<254thenn=254
  22. 43 ifn/254>int(n/254)thenbl=int(n/254)+1
  23. 44 ifn/254=int(n/254)thenbl=n/254
  24. 45 print"filen pituus:[157]";bl;"blokkia."
  25. 46 print"k[[nn\s tehty.":end
  26. 50 printye$;:poke198,0:wait198,1:ifchr$(peek(631))=" "thenreturn
  27. 51 end
  28.